home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1988 / fydgitr.s < prev    next >
Text File  |  1989-10-04  |  2KB  |  61 lines
  1. ;Fydgitr
  2. ;by Kenneth W. Clapp
  3. ;United States of America
  4. ;
  5. TOP2          DAT                    0
  6.               DAT                    0
  7.               DAT                    0
  8.               DAT                    0
  9.               DAT                    0
  10. TOP1          DAT                    0
  11. RESTOMP       MOV      ZERO,       @  DEST1
  12. STOMP         MOV   <  DEST1,      <  DEST2
  13.               MOV   <  DEST1,      <  DEST2
  14.               MOV   <  DEST1,      <  DEST2
  15.               MOV   <  DEST1,      <  DEST2
  16.               JMZ      STOMP,      @  DEST1
  17.               ADD   #  9,             DEST1
  18. SPLITA        ADD   #  9,             DEST2
  19.               JMP      RESTOMP
  20. DEST1         DAT                   -10
  21. DEST2         DAT                   -16
  22. ZERO          DAT                    12
  23.               DAT                    10
  24. SKIPA         DAT                    325
  25.               SPL                    SPLITA
  26.               DAT                    4
  27.               DAT                    678
  28.               JMP                    DEST2
  29.               DAT                    7
  30.               DAT                    678
  31.               JMP                    SKIPA
  32.               DAT                    1993
  33.               DAT                    325
  34. START         MOV   <  ZERO,          DEST
  35.               MOV   <  ZERO,          DEST
  36.               MOV   <  ZERO,          STOP
  37. LOOP          MOV      NUM1,       <  DEST
  38.               MOV      NUM2,       <  DEST
  39.               ADD   #  14,            DEST
  40.               DJN      LOOP,          COUNT
  41. STOP          JMP      START
  42.               JMP      RESTOMP
  43. NUM1          JMP                    NUM1-1
  44. NUM2          SPL                    NUM2-12
  45. COUNT         DAT                    1
  46.               DAT                    1
  47.               DAT                    1
  48.               DAT                    1
  49.               DAT                    1
  50.               DAT                    1
  51.               DAT                    1
  52.               DAT                    1
  53. ; 
  54.               DAT                    1
  55.               DAT                    1
  56.               DAT                    1
  57.               DAT                    1
  58. ;              
  59. DEST          DAT                    1
  60.               END      START
  61.